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l«»»COPYR|GHT 1969. DIGITAL EQUIPMENT CORP., MAYNARD, MASS.«»» 

iTHIS SUR-PRDGRAM ASSEMBLED WITH SYSTEM PARAMETER FILE - S.MAC(V414) 
XLIST 

LIST 

title pltser - plotter service routine 

SURTTL T, EGCERS/GBH/Tnm 20 MAY 1969 V012 

XP VPLTSR.012 iput VERSION NUMBER IN STORAGE MAP AND Gl OB LISTING 



000140 PLT=140 
200000 PLTUP=200000 

ENTRY PLTSER 
PLTSERl 



(DEFINE DEVICE CODE 

SLIET PEN WHEN OUTPUT FINISHED 



SPLOTTER DEVICE DATA BLOCK 

605464 000000 PLTQDB: SIXBIT /PIT/ 

000012 000044 PLTCHRS XIO HUNGST»1?. tQ36 

0000"i0 0000-!'0 PLTIOS: ." 

000000 000014' D LTDSP 

000e""l 014403 XkD 1VOUT, 14403 

0000510 000000 .? 

000000 000000 

000000 000000 PLTPTR:." 

00B007 000000 PLTADW: XhD PROG.0 

000000 000000 PLTCTK: 



IXWO (HUNG TIMEOUT) , (BUFFER SIZE) 

IDISPATCH TaRLE ADDRESS 

IXWD (OUTPUT DEVICE) , (BIN, IMAGE. TEXT LEGAL) 



10'JTPUT RYTt POINTER 
(OUTPUT PYTE COUNTER 



EXTERNAL OUT.SETACT.PLTCHN.PLTCHL, IOSET,ADV8FE,AORERR,CPDPJ1 
EXTERNAL SETIOD.STOIOS.CLRACT.ILLINP.PLTSAV.IADRCK 

INTERN PLTDDR.PLTINT.PLTDSP 
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'5 2 
■5 3 
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55 
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61 
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000012 
000013 
000014 
000015 
000016 
000017 

000020 
("00021 
000022 

000023 
000023 
000023 
000024 
000025 



000026 
000027 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000040 
000041 
030042 
000043 



(DISPATCH TARLE 



254030 
2540.10 
254010 
2540J10 
254e»?0 
2540?0 



2540.10 
260140 
661000 
714200 
205040 
546040 
6270^0 
254000 
201040 
621000 
2020i'0 
714140 
263140 



000023' 
000023' 
000023' 
000020' 
000026' 
000000 



PLTDSPi 



JRST PLTINI 

JRST PLTHNG 

JRST PLTREL 

JRST PlTCLS 

JRST PLTnUT 

JRST ILL IMP 



6610?0 200000 PLTCLS! TLO IOS.PLTUP 
2020P0 000002' MOVEM IOS.PLTIOS 

254000 000000 JRST OUT 



714200 000000 
5130W0 000044' 
263140 000000 



PLTINI ! 

PLTHNG! 

PLTRFL! CONO PLT.0 

HLLES PLTINT 
PQPJ POP, 



(HERE PEGINS THE "OUTPUT" UUP 
260140 000075' PLTOUTi PUSHJ POPiPLTSET 



00000 

00000 

00020 

00000 

00010 

00044' 

00002 

00041 ' 

00040 

00000 

00002' 

00001 

00000 



JRST ADRERR 
°USHJ PDP.SETACT 
TLO IOSiIO 
CONO PLT.PLTCHN 
MOVSI TAC.10 
HLRM TAC.PLTINT 
TL?N IOS.IOBEG 
JRST .+3 
MOVE I TAC.40 
TL? !OS,PLTU° 
MOVE* IOS.PLTIOS 
1ATAP PLT.TAC 
POPJ POP, 



(INITIALIZE 

(HUNG DEVICE ERROR 

IRELEAS 

(CLOSE 

(OUTPUT 

I INPUT 

(PLOTTER END ELAG SET 

(DO AN OUTPUT 



(OEASSIGN PI CHANNEL. CLEAR DONE 
(REMOVE PLOTTER FROM DEVICE CHAIN 



(SETUP BYTE POINTER AND COUNTER 
IAODRESS ERR RETURN FROM PLTSET 
(SET DEVICE ACTIVE SIT 

(ASSIGN PRIORITY CHANNEL 

(PUT PLOTTER INTO DEVICE CHAIN 

(FIRST OUTPUT UUO? 

IN" 

(YES. START PLOTTER WITH PEN UP 

1 INI T "CLOSE" BIT 

(START PLOTTER BY SENDING OR 40 
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69 
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70 










71 


000044 


714340 


000010 


PLTINT 


72 


000045 


254000 


000044 ' 




73 


000046 


3750»0 


000011 i 




74 


000047 


254000 


000055' 




75 


000050 


202040 


000117 1 




76 


000051 


134040 


000007' 




77 


000052 


714140 


000001 




78 


000053 


200040 


000117' 




79 


000054 


254520 


000000 




R0 










SI 


000055 


2640"0 


000000 


PLTli 


8 2 


000056 


2013.^0 


000000' 




63 


000057 


260140 


000000 




84 


000060 


260140 


000000 




85 


000061 


254000 


000067' 




86 


000062 


260140 


000075' 




87 


000063 


2540f0 


000067 ' 




88 


000064 


6230C0 


000001 


PLT2! 


8 9 


000065 


260140 


000000 




00 


000066 


254070 


000000 
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94 










95 


000067 


7142/0 


000000 


PLTOFF 


06 


000070 


5130510 


000044' 




97 


000071 


260140 


000000 




08 


000072 


623000 


200000 




99 


000073 


714140 


000115' 




100 


000074 


2540P0 


000064' 





iFROM HERE THROUGH PLTOFF IS INTERRUPT SERVICE 



CONSO PLT.10 
JRST .-1 
SOSGE PLTCTR 
JRST PLU 
MOVEM TAC.TACSAV* 
ILOB TACPLTPTR 
DATAO PLT.TAC 
MOVE TAC,TACSAV# 
JEN !»>Pl_TCHL 

JSR PLTSAV 
MOVEI DEVDAT.PLT0D9 
PUSHJ POP. IOSET 
PUSMJ PDP.AOVBFE 

J"ST PLTOFF 
PUSHJ PDP.PLTSET 

JRST PLTOFF 
TL?E IOS.IOW 
DUSHJ POP.SETIOD 
JRST STOIOS 



CONO PLT.0 
HLLHS PLTINT 
PUSHJ PDP,CLRACT 
TL?E IOS.PLTUP 
DATAO PLT.C4!?] 
JRST PLT2 



(PLOTTER DOME FLAG SET? 
INO, CHAIN TO NEXT DEVICE 
I OUTPUT CHARACTERS LEFT? 
I NO 

IYESi SAVE TAC 
(GET NEXT CHARACTER 
(SEND CHARACTER 
(RESTORE TAC 
(DISMISS INTERRUPT 

ISAVE AC'S. SET UP PUSH TOWN POINTER 

(SETS UP PROG AND IOS 

(ADVANCE ANO LOOK AT NEXT BUFFER 

(NO MORE DATA AVAILABLE 

(SETUP BYTE POINTER ANO COUNTER 

(ADDRESS ERR RET FRO" PLTSET 

(LET JOB START AGAIN 

(EVENTUALLY DISMISS INTERRUPT, IF AQVBFE 
(FOUND MORE DATA (IT SKIPPED), AN'DTHER 
I INTERRUPT WILL IMMEDIATELY OCCUR BUT 
UT WILL BE HANDLED WITHOUT GOING TO PLTl 

(SHUT DOWN PLOTTER 

(REMOVE PLOTTER FROM CHAIN 

(HAS THE "CLOSE" BEEN DOME? 
(YES. LIFT PEN 



PLTSFR 



■ PLOTTER SERVICE ROUTINE MACRO. V36 19:09 4-JHN-69 PACE 16 
T. EGGERS/GBW/TNM 22 MAY 1969 v*12 



131 
l'*2 
173 
1?4 
105 
106 
1?7 
l-'8 
l'»9 

110 
111 

112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
1^5 
126 
127 
1?8 
129 
132 



P00075 
000076 

000077 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
000112 
000113 
000114 

000115 
000115 
000116 
000117 
700120 



201060 
270040 

6060?0 
661040 

202040 
550060 
202040 
270040 
201041 
260140 
263140 
201040 
6060T0 
201040 
222040 
2540^0 



000000 
000600 



iTHIS SUBROUTINE CALCULATES- A BYTE POINTER AND A BYTE COUNTER FOR 

: THE BUFFER TO BE OUTPUT, THF LAST WORD OF BUFFER IS ADR CHECKED TO BE IN USER AREA 

! PUSriJ pdp.pltsft 

I RFTURv 1 (ADDRESS ERROR RETURN 

i RETURN ? SGOO r ' RETURN 



000010' 
000116 ' 

000016 
000700 
000007 ■ 
000001 
000011 ' 
000010' 
000001 
000000 

000000 

000006 

000016 

000005 

000011 ' 

000000 



000040 
000001 



PLTSFT! 



w OVEI TAC.0PLTADR 

ADD TAC. [POINT 6,1.3s] 



PLTENO: 



TRNN 10S.16 
TLO TAC, (POINT 7,( 
MOVE* TAC.PLTPTR 
HRR2 TAC, STAC 
WOVE* TAC.PLTCTR 
ADO TAC.PLTAOR 
MOVEI TAC.l(TAC) 
RUSHJ POP, I AORCK 

POPj PQP, 
MOVC I TAC , 6 
TRNN, IDS, 16 
"OVEI TAr,5 
IMUL" TAC/PLTCTR 
JRST C D 0FJl 

LIT 



VAR 
F\0 



,35) 



iGFT AOORESS OF CURRENT PUFFFR 

(CONVERT TO 6 BIT BYTE POINTER WITH 

(ADDRESS OF RUFFER WORD COUNT 

I IS THIS A TEXT DATA MODE? 

iYES, CONVERT TO 7 BIT BYTF POINTER 

I SAVE RYTE POINTER 

IGET BUFFER WORD COUNT 

ISAVE AS POSITIVE WORD COUNT 

(CALCULATE (LAST AOR IN RUFI-1 (RELATIVE) 

IGET LAST ADR IN BUF (RELATIVE) 

(ADDRESS CHECK. OK? 

I NO, OUTSIDE, RETURN WITH NO SKIP 

(IMAGE OR BIN MODES - 6 PYTES/WORD 

MS OUTPUT A TEXT MODE (0 OR 1>? 

!YES, 5 DYTES/WORO 

(CHANGE WORD COUNT TO BYTE COUNT 

(RETURN WJTh A SKIP 



NO ERRORS DETECTED 
PROGRAM RRFAK IS 000120 
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AD"3R 
rp^p n 

H J M G S T 
10 

IOSET 
POP 

P|_T2 

P|_TO N 

P|_ T CTR 

PLTE'JD 

"LTI'I 

PLTOI.-T 

P L T S A V 

PLTIJP 

c e t i :•■ d 

TATSAV 



Z H 2 / 7 ' EXT 
71 ? 1 1 4 ' Ext 

2 ;.' " 1 1 N T 

000020 INT 

0000K7' EXT 

*000'3 INT 
<A g. i£ '. 4 ' 

c»00032' EXT 

p a p 1 e> 1 1 * 

000120' 
000044' INT 
•"00076' 
000055' EXT 
2000'"0 
000065' EXT 
00] 1 7 ' 



AOV-i 


F L 


1EVJ 


» T 


I APR 


■"K 


10" 


r. 


TO 1 -. 




"I.T 




P|_ T A 


"iH 


n L T CHR 


p L t,: 


IP 


PLTH 


VG 


PLT| 


ns 


PL T PTR 


R L T S 


^R 


PRn-3 




ST I 


">S 


VPLTC* 



1 B n i) * ' FXT 

0000^6 t\|T 

i" 1 ■•■ 6 ■ r x T 

■'?'?»-'2 !\|T 

•'0^0 "1 I.\|T 

70001 ■ 
"W0P1 ' 

70?0"0' INT 
000023' 
'"000^2 ' 
"i * 7 ' 

00^0 ; "7 i\|T 

51000*6' FXT 

70001.2 INT 



CLRACT 

PvnuT 

ILLINP 

ior 

nuT 

PLT1 

PLTCHL 

PLTCLS 

PLTDSP 

PLTJMI 

PLTOFF 
PLTREL 
PLTSET 
SETACT 
TAT 



000071' rXT 

000001 INT 

000017' r-XT 

000000 ■ I|\|T 

000022' rXT 
000055' 
000054' rXT 
000020' 
000014' iNT 
000023' 
000067' 
000023' : 
000075' 
000030' rXT 

C00001 int 
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6# 


6 
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6# 


6 


AC? 
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6 
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6# 




ADRERR 


29 


56 
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29 


?4 
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6# 


6 


AL 


6# 


6 
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6* 


6 
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6# 


6 
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6# 


6 
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6# 


6 


RUFWRO 


6# 


6 


CLKR 


6# 


6 


CLRACT 


30 


97 


CLSIN 


6* 


6 
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6# 


6 


CMU3 


6* 


6 
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bU 


6 


CPOPJ1 


29 


124 


n 


6# 


6 
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6# 


6 
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6# 


6 
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6# 


6 


DCLO 


6# 


6 


DCLR 


6# 


6 
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6* 


6 


TDP 


6# 


6 


HEN 


6# 


6 


DEVA^R 


6* 


6 


OEVIUF 


6# 


6 


DEVCMR 


6# 


6 


DEVCTR 


6# 


6 


OEVOAT 


6* 


6 


DEVEXT 


6# 


6 


nEVFIL 


6# 


6 
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6# 


6 


OEV1HS 


6# 


6 


nEVL'lG 


6# 


6 


DEVMTD 


6# 


6 


DEVNUM 


60 


6 


nEVOAD 


6* 


6 


HEVPRN 


6# 


6 


OEVPTR 


6* 


6 


HEVSER 


6# 


6 


GGF 


6# 


6 


nH^G 


6# 


6 


n l M 


bit 


6 


MMI 


6* 


6 
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6* 


6 


n m T 


6# 


6 


nNAERR 


6# 


6 


nOU 


6* 


6 



R2 



OR 


6# 


6 


nR|. 


6« 


6 


nRN 
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6 


QSfR 


btt 


6 
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6# 


6 
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6# 


6 
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6# 


6 


OVAVAL 


btt 


6 


nvrn- 


6# 


6 


ovni-i 


6# 


6 


nvni-i i 


6# 


6 


nvni« 


6# 


b 


nvns* 


6)J 


b 


tvht* 


6# 


6 


nviM 


6# 


6 


HVLNr: 


6# 


6 


^VLPT 


6# 


6 


iv w ta 


btt 


6 


nvr-jT 


btt 


6 


TVPT^ 


6* 


6 


PVPTr; 


6« 


6 


tvtty 


6# 


6 


F ,M T R -' 


6* 


6 


nj"E<R 


6* 


6 


r ,\i f r .; K 


6* 


6 


FRr:s r G 


btt 


6 


rT?sr L 


6* 




FTATTA 


bit 




FTtr-ri; 


6* 




FTFX 1M 


6* 




nrr I 


6# 




FTr.F.TT 


6# 




FTHAI.T 


6* 




FTKC T 


60 




FT Mr) ;p 


6*» 




r T P R V 


6« 




FTHAIil 


6« 




FTPChK 


hit 




rTOfis 


btt 




FTc L rE 


6# 




FTTAI K 


6# 




FTTI'-C 
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FTT^SC 


btt 
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bit 
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6 
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^ 
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'il 


btt 


6 



22 



19 
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btt 


6 
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btt 


6 




ILL f-P 


30 


11 
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6# 






i'luerr 


6* 


6 




INPFJ 


6fl 


6 




[NIT? 


6* 


6 




INP8 


6# 


6 




!0 


6# 


6 


58 


I04CT 


6# 


6 




lOPEa 


6* 


6 


62 


10PKTL 


6# 


b 




TO" OT 


6* 


6 




IOCO': 


6* 


6 




IOOENU 


6# 


6 




lOIERR 


btt 


6 




IODTFR 


6# 


6 




IOENn 


6# 


6 




IOFST 


6# 


6 




! OIMPM 


6# 


6 




lONRCK 


6* 


6 




I0P4R 


6* 


b 




IOS 


btt 


6 


43 


IOSET 


29 


8 3 




IOTFVO 


btl 


6 




tousr 


bM 


6 
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btl 


6 


S8 
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bit 


6 




IPPERR 


btt 
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btt 
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btt 
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6 
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btt 
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6 
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6 
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6 
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6 
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btt 
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JXPN 


b# 
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6# 
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6# 
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MECERR 


btt 


6 




NLFERR 


bit 


6 




MSOFSf) 


btt 


6 




NSFERR 


btt 


6 




N5WF 


btt 


6 




MSRBIT 


6* 


6 




NISMP 


6# 


6 
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65 
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88 
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111 
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PLTcuL 

P L T C 4 N 

PL T C"R 
PLTCl s 

PL^CTR 
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PLTOFP 
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PLTH>> G 

PLTI"I 

PUTI'.T 

"LTPS 

r- l T .1 r ^ 

D LTTMT 

PLTpTC 

PLT-jr L 

P|_TS',V 

PLT5PR 

PLTSPT 

PLTUP 

POV 

PROS 

D RTF.RR 

DV5PVA 

PVSP YM 

PV T RFS 

REr.^'3 

RUNAPL 
RU>>M5K 
SD 
SEUHT 

SHF 

SHRSPG 

SLEVTL 

SLi:r 

?NA 

SPYSF.G 

STri~s 

STOPIO 
STTYR1 
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74 


'1* 
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29 


79 




PS 
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6* 
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6 
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'1 



68 
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S6 
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123 



STTYRF 


6# 
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5WP 


btt 


6 












SWPCL.R 


btt 


6 












SYSOFV 


btt 


6 












TAC 


btt 


6 


60 


61 


64 


67 


75 




114 


115 


lib 


117 


120 


122 


1?3 


TAC1 


6* 


6 












TACSAV 


75« 


75 


7S# 


78 








TE" 


6* 


6 












TRVERR 


btt 


6 












TTYATC 


b# 


6 












TTYBJU 


btt 


6 












TTYUSE 


bU 
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UCHN 


btt 


6 












UIOMOD 


6# 
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USRMHD 


btt 
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UUP 


btt 
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UkP 


btt 
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UWPOFF 


btt 
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VPLTSR 


iztt 
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WTMA^K 


btt 
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76 



77 



108 



10 9 
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COTES 


6# 


n i sail 


btt 


ENABLE 


btt 


MOSc^E 


6* 


NOSHMF 


6* 


QUEUES 


6* 


SCME^U 


6# 


SHUFFL 


6# 
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b» 


yp 


btt 



